home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / AddChars.bed < prev    next >
Text File  |  1996-09-26  |  564b  |  46 lines
  1. /*
  2. ** $VER: AddChars.bed 1.0 (02.01.96)
  3. **
  4. ** Add characters at the start of lines
  5. */
  6.  
  7. OPTIONS RESULTS
  8. PARSE ARG ch
  9.  
  10.  
  11. IF ch = "" THEN DO
  12.     RequestStr PROMPT '"Chars to add?"'
  13.     IF RC ~= 0 THEN EXIT 5
  14.     ch = RESULT
  15. END
  16.  
  17. SetStatusBar "Adding characters..."
  18.  
  19. GetBlkDims
  20. PARSE VAR RESULT mode . start . end
  21.  
  22. SetDisplayLock ON
  23. SetBookmark 0
  24.  
  25. IF mode=ON THEN DO
  26.     MarkBlk
  27.     Move start 1
  28.     num = end-start+1
  29. END; ELSE DO
  30.     MoveSOF
  31.     num = 0
  32. END
  33.  
  34. RecordMacro Quiet
  35. MoveSOL
  36. Text '"' || ch || '"'
  37. MoveDown
  38. EndMacro
  39.  
  40. PlayMacro num
  41.  
  42. MoveBookmark 0
  43. ClearBookmark 0
  44.  
  45. SetDisplayLock OFF
  46.